Top 10k strings from Utilidades 1 (1984)(Microparadise Software)(es)(Side B).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Compilations - Utilities & Educational & Various / Sinclair ZX Spectrum - Compilations - Various - [TZX] (TOSEC-v2006-06-06) /
Back to the directory listing
3 ;" Pulsar
3 para acceder al indice"
3
2 -- Pulsar '
1 w$="05678RCBXQHP":
1 pack character
1 n$(x)=e$(1
1 musica
1 move cursor
1 mc f
1 maintain internal picture
1 line input
1 let z=instr(w$,a$)
1 lado L
1 f$=f$+b$(n,k):
1 e$(i,n)="1")
1 e$(i,n)="0")+("
1 draw existing pattern
1 draw cursor
1 dirtel musica dib carac lado l
1 dirtel F2Z
1 dib
1 dando la vuelta a los caracteres
1 cy=cy-dy*8
1 cx=cx+dx*8
1 create data statements
1 create array
1 carac
1 c$=c$+(" "
1 a$=e$+" Que letra? ":
1 a$="Quiere grabar los caracteres?":
1 a$="Quiere cambiar alguno? ":
1 a$="Nombre para grabar?:":
1 a$(s)>117
1 a$(s);"No es un caracter definible":
1 _____________INDICE_____________
1 _________GRABACION DATOS________
1 ________LISTA DIRECCIONES_______
1 ________LISTA DE NOMBRES________
1 ________FICHERO DE DATOS________
1 _Num_____NOMBRE Y APELLIDOS_____
1 Utilidades
1 UTILIDADES 1
1 UT12
1 TZX por Manuel Gomez Amate0
1 Print current set
1 PULSA EL NUMERO DEL PROGRAMA
1 Microparadise
1 MC
1 Listin telefonico Organo Arabescos Def. caracteres Rotulos printer
1 LOAD ""dirtel""
1 LISTA DIRECCIONES
1 LISTA DE NOMBRES
1 Juego de caracteres actual
1 INTRODUCE NUMERO DE TELEFONO
1 INTRODUCE NUMERO DE ORDEN
1 INTRODUCE NOMBRE Y APELLIDOS
1 INTRODUCE EL NOMBRE Y APELLIDOS DE LA PERSONA CUYA DIRECCION DESEAS CONOCER TAL COMO FIGURA EN EL FICHERO DE DATOS
1 INTRODUCE DIRECCION POSTAL
1 INTRODUCE CIUDAD Y D.P
1 GRABACION DATOS
1 FICHERO DE DATOS
1 ESTA TODO CORRECTO ?
1 Castellano
1 COCO f
1 ;N;"-";A$(N);" ";B$(N):
1 ;"_____ ________"
1 ;"X=term. B=Borrar "'"R=Inv. linea C=Inv. colum. "'"0=Fijar 5,6,7,8=cursor"'"Q=Dejar igual H=Sin cursor "'"P=Impresora"
1 ;"Tecla Caracter"
1 ;"Sentencias DATA:"
1 ;"Pulse tecla (P=impresora)"
1 ;"PULSE UNA TECLA PARA EMPEZAR"
1 ;"ESPERA UN MOMENTO"
1 ;"Caracter actual : ";a$
1 ;"CARGANDO ";B$(NUM)
1 ;"AHORA EL TECLADO ES UN PIANO"
1 ;" Una vez iniciado, adjudicar un numero (del 1 al 90) a cada direccion y seguir instrucciones"
1 ;" PULSE UNA TECLA PARA CONTINUAR "
1 ;" Seguir instrucciones una vez iniciada esta fase"
1 ;" PULSE UNA TECLA PARA EMPEZAR "
1 ;" ";e$(1
1 ;" UTILIDADES 1 - Indice "
1 00000000C
1 0000000001111100000100100001001000010010000100100111110000000000F
1 0000000000111100010000100100001001111110010000100100001000000000
1 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
1 +D.L.: M-22387-84
1 **LETRAS GIGANTES**
1 )="musica":
1 )="dirtel":
1 )="carac":
1 )="Rotulos printer"
1 )="Organo":
1 )="Listin telefonico":
1 )="Def. caracteres":
1 )="Arabescos":
1 )="00000000"
1 (maximo 30 caracteres)
1 (maximo 26 caracteres)
1 (maximo 20 caracteres)
1 (maximo 10 caracteres)
1 (de 1 a 90)
1 (ABANDONAR PULSANDO UNA TECLA)
1 '"DATA """;a$;""",";
1 ' para obtener el listado"
1 ' para obtener direcciones"
1 ' para grabar programa y datos"
1 ' para acceder al fichero"
1 "y-posicion?";y:
1 "x-posicion?";x:
1 "Paper?";p:
1 "Este programa crea grandes rotulos que pueden ser de cual- quier longitud, para su impre- sion en la printer ZX"
1 "ENTRAR MENSAJE > ";a$
1 "Con este programa podra generar vistosos graficos, con la ayuda de las teclas de cursor"
1 "Bright?";s:
1 "Border?";b:
1 " ";x;" ";n$(x)
1 "
1 para grabar el programa"
1 para comenzar";
1 para comenzar"
1 RUTINA DE GRABACION
1 --- Pulsar '
1 - Pulsar '
1 (en minusculas), ytanto el programa como los datos que ahora contenga correran automaticamente
1 para ver numeros 81-90
1 para ver numeros 71-80
1 para ver numeros 61-70
1 para ver numeros 51-60
1 para ver numeros 41-50
1 para ver numeros 31-40
1 para ver numeros 21-30
1 para ver numeros 11-20
1 para ver numeros 1-10
1 para acceder al indice
1 SUBRUTINA IMPRESION
1 NO FIGURA. REPASA EL LISTADO
1 LISTA DIRECCIONES
1 FICHERO DE DATOS
1 Cuando cargues el programa la proxima vez, introduce
1 PROGRAMA PRINCIPAL
1 LISTA DE NOMBRES
1 LO SIENTO, PERO EL NOMBRE
1 (Pulsa cualquier tecla)
1 L
1
1